home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / comal-sieve.l < prev    next >
Text File  |  2007-02-28  |  676b  |  28 lines
  1. 0010 PRINT CHR$(147),"SIEVE TEST"
  2. 0020 SI#:=1000; ML#:=10
  3. 0030 PRINT "ARRAY SIZE:";SI#
  4. 0040 PRINT "NUMBER ITERATIONS:";ML#
  5. 0050 POKE 162,0 // SET
  6. 0060 POKE 161,0 // JIFFY
  7. 0070 POKE 160,0 // TIME
  8. 0080 DIM FLAGS#(0:SI#)
  9. 0090 FOR ITER#:=1 TO ML# DO
  10. 0100 FOR I#:=0 TO SI# DO FLAGS#(I#):=TRUE
  11. 0110 PRINT "LOOP ",ITER#
  12. 0120 COUNT#:=0
  13. 0130 FOR I#:=0 TO SI# DO
  14. 0140 IF FLAGS#(I#) THEN
  15. 0150 PRIME#:=I#+I#+3
  16. 0160 K#:=I#+PRIME#
  17. 0170 WHILE K#<=SI# DO
  18. 0180 FLAGS#(K#):=FALSE
  19. 0190 K#:+PRIME#
  20. 0200 ENDWHILE 
  21. 0210 COUNT#:+1
  22. 0220 ENDIF 
  23. 0230 ENDFOR I#
  24. 0240 ENDFOR ITER#
  25. 0250 PRINT "COUNT=";COUNT#
  26. 0260 T3:=PEEK(162); T2:=PEEK(161); T1:=PEEK(160)
  27. 0270 PRINT (T1*256*256+T2*256+T3)/60;"SECONDS"
  28.